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1. ABSTRACT 

The ISZ Test checks the operation of the ISZ instruction of the PDP-15. 
Various checks of the ISZ instruction are made, including ISZ of 
777777- to 0- on all memory locations, and ISZ of random numbers 
stored in random memory locations from random memory locations. 
Errors are indicated to the operator via the teleprinter. 

2. REQUIREMENTS 

2. 1 Equipment 

Standard PDP-15 computer 

2.2 Storage 

The program uses all of 4K memory for the program or as a test area. 
When the program resides in upper 2K of memory, it occupies from 
locations 06440 to 07711 . The random ISZ portion of the test tests 
all locations below 06440. 

2.3 Preliminary Programs 
Basic instruction tests 

3. LOADING PROCEDURE 



3.1 Method 

a. Put HRI tape of program in reader (high speed, if available). 

b. Set ADDRESS SWITCHES TO 00200; the BANK MODE switch on a 1 . 

c. Depress and release READ-IN key. 
4. STARTING PROCEDURE 

4. 1 Control Switch Settings 

The following is a table of ACCUMULATOR SWITCH settings and 
their action on the program: 



AC Switch 


Set As 





1 







1 


1 







2 


1 







3 


1 







4 


1 







5 


1 



Action 

Halt on error 
Don't halt on error 
Don't print on errors 
Print errors 
Ring bell on error 
Ring bell after N passes 
Loop on current conditions 
Don't loop on current conditions 
Loop on current test 
Don't loop on current test 
Save initial error conditions of 
random ISZ 
Don't save initial error conditions 

of random ISZ 

6 1 Vary location of ISZ instruction 

Don't vary location of ISZ instruction 

7 1 Vary location of number incremented 

Don't vary location of number incremented 

8 1 Vary number Incremented 

Don't vary number incremented 

(Switches 6, 7, 8 operate in conjunction with 5; 3 supercedes 4) 

N is an arbitrary number (initially 20000„ for random (ISZ's) which is 
controlled by the LAW-N instruction in location 07052 and may be 
changed at the operator's discretion. 

4.2 Starting Addresses 

The starting address of the program is 00200. The restart addresses 
are 00200, 00244, 07000, 7052, and 7652 (see Section 5.3). 

4.3 Program and/or Operator Action 

a. Set ADDRESS SWITCHES to 00200 

b. Set ACCUMULATOR SWITCHES to desired positions (see 

Section 4.1). Normal setting is 510000, 

c. Depress I/O RESET 

d. Depress START 



5. OPERATING PROCEDURE 

5.1 Operational Switch Settings 
See Section 4.1. 

5.2 Subroutine Abstracts 
None 

5.3 Progrom and/or Operator Action 

a. To put the program in the 'scope mode, the ACCUMULATOR 
SWITCHES should be set to 270000, (don't halt, don't print, 
bell after N passes, loop on current number (location), loop 
on current test, save error conditions) . 

b. To start program initially so that upper memory may be checked, 
start at location 00200. 

c. To start program initially so that lower memory may be checked 
without checking upper memory, start at location 00244. 

d. To restart program to check upper memory after program has 
moved, restart at 07652. 

e. To restart program to check lower memory after program has 
moved, restart at 07000. 

f. To restart program to check random ISZ's after program has 
moved, restart ot 07052. 

6. E RRORS 

'Jhless AC switch 1 is a 1, all errors will be printed on the Teletype. 

6 . 1 Error Halts and Descriptio n 

Location Description 

00442 JSZ on upper memory did not skip 

00504 Location in upper memory did not ISZ to 

07466 ISZ on lower memory did not skip 

07530 Location in lower memory did not ISZ to 

07601 Random ISZ add failure 

6.2 Error Recovery 



6.2.1 To Repeot Foilure 

If AC switch is a 1, the computer will halt on an error. To recover 
and repeat the failure, reset AC switches to 5 as necessary (see 
Section 4.1) and then depress CONTINUE key. 

6.2.2 Recovery with Random ISZ 

The random ISZ portion of this test has special recovery features. 
AC switch 3, as with the other tests, may be used to put the program 
in the 'scope mode (loop on current conditions) . If, however, it is 
desired to save the conditions of an error and vary the parameters which 
make up the current conditions, AC switches 5 to 8 may be used, if 
switch 5 is a 1, and an error occurs, the exact conditions which caused 
the error will be saved (location of ISZ instruction, location of 
number ISZ'd, number ISZ'd). By setting switches 6, 7, and/or 8 
to G 1, any one or all of these conditions may be changed. Returning 
6, 7, and/or 8 to causes the original error condition for that 
switch to be used again. Thus it is possible to determine which 
condition (s) is causing the error. Switches 5-8 have no effect, if 
an error does not occur. 

6-2.3 Test Specioi Conditions with Random ISZ 

To test special conditions in the random ISZ test, store the location 
of the ISZ instruction in 07112 (SAVEl) and 07115 (RANDl), store 
the location of the number ISZ'd in 07113 (SAVE2) and 071 16 (RAND2) 
and store the number to be ISZ'd in 07114 (5AVE3) and 07117 (RAND3). 
Restart the program at location 07067 (PROCED) with AC switches 3 
and 5 to 1 . 

6.2.4 Test Particulor Memory Location 

To test a particular memory location in the ISZ to tests, store the 
number of the location to be tested in 00252 (PNTR2) if program is in 
low memory and an upper memory location is to be tested (if program 
is not in low memory, move it there by restarting computer at 07652 
(MOVEDN), or in 07046 (PNTRl) if program is in high memory and a 
lower memory location is to be tested (if program is not in high memory, 
move it there by restarting computer ot 00244 (MOVEUP). Whether the 
program is in lower or upper memory can be determined by the program 
counter while the program is running (it may be easier to stop the computer 
before looking at the PC), if the PC contains a number above 04000, the 
program is in upper 2K of memory and conversely. Restart computer at 
00206 (ISZH1+6) or 07005 (ISZLOW+5) (as appropriate) with AC 
switches 3 and 4 a 1 . 



6.3 



Error Switch Hierorchy 




6.4 Error Typeout Examples 

6.4.1 Increment Memory from -1 to 

6.4.1.1 No Skip 

ISZ DID NOT SKIP, LOG 001234 

The above example shows that the number in location 1234 (-1) 
when incremented, did not skip. 

6.4.1.2 Bad Add 

ISZ ADD 

NUMBER AT ORIGINAL BAD 

001234 777777 777777 

The above example shows that the number in location 1234 (-1) 
was not incremented. 



6.4.2 Random ISZ Test 



ISZ ADD 



NUMBER AT ORIGINAL BAD ISZ AT 

001234 765435 765434 005763 

The above example shows that a number in location 1234 (the number 
was 765435) was ISZ'd improperly producing a result of 765434 (carry 
from bit 17 to bit 16 was lost). The ISZ instruction was in location 
5763. 



7. MISCELLANEOUS 



7.1 Execution Time 



Not applicable 

PROGRAM DESCRIPTION 

There are three basic portions to the program, a portion which tests 
upper memory to be sure that all memory locations con be incremented 
to (ISZHI), a portion which tests lower memory to be sure that all 
memory locations can be incremented to (ISZLOW), and a portion 
which assures that random numbers stored in random memory locations 
can be ISZ'd from random memory location properly (RANISZ). 



8.1 ISZHI 



The first function performed is that of initializing the bell 
counter and setting up for header printing should an error occur. 

Then a pointer is set to 04000 to allow the program to access the 
first location to be tested. 

The number 777777„ is stored in the memory location indicated 
in the pointer and ft is then incremented to 0. Checks are made 
to assure that the computer skipped and the number went to 0. 

A check is then made to see if the memory location should be 
tested again (switch 3). If so, c is repeated immediately. If 
not, then the address is incremented and then c is repeated. 

Step d is repeated until location 07777,. has been tested, at which 
time a check is made to determine if the sequence should be 
repeated (switch 4). If so, the program goes back to b. If not, 
the program is moved to upper memory and then control is trans- 
ferred to the ISZLOW portion of the program. 



8.2 ISZLOW 



is ccxnpleted 



:8 

IS 

8.3 RANISZ 



rhis portion is essentially the same as ISZHl except thot location 
to 3777 are tested and the program is not moved when ISZLOW 



Q, First the initialization of the loop counter and the header 

is set up. 

b. Then three random numbers are generated for the location 

of the !SZ, location of the number, and the number respectively. 

c. The number is stored in the appropriate memory location and 
an ISZ instruction is formed for that location and stored in its 
proper place. 

d. The ISZ instruction is then executed and the result is checked 
with a synthesized ISZ for proper addition. If no errors 
occurred, a check is made to see if the test should be repeated 
(switch 3), If not then the program returns to step b . If it 
should be repeated, the program returns to step c. 

e. If an error occurred, the conditions which caused it are in- 
dicated to the operator (unless they have been suppressed by 
AC switch 1) and then a check is made to see if the conditions 
should be saved (switch 5). If not, the program proceeds on 
as if no error occurred, 

f . ',-.' fhs error cortdUsons should be saved, the pfograrr? then determines 
which o* fhe three variables should be changed, and repeats the 
test for the new variables and/or the old ones. The operator can 
always retut.) to oiigina! error conditions by setting AC switch 6 

7, and 8 to 0. By setting AC switch 5 to 0, the operator can continue 
on with testing independent of the error, if he so desires. 
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IS?-15 



?i0?0;- 



Plp)?,5i» 


■?''(? <i00 


P10?l?l 


VM0251 


V>.^?:}i? 


200507 


(^pipa:^ 


tM0455 


«0?01 


?0i*256 


H0P0C; 


;!4P252 


H0206 


754001 


00?07 


v?6P252 


P)0?10 


460252 


00211 


100421 


P0?i;^ 


220252 


<?0?i3 


740200 


m?\A 


100444 


fa?is 


750004 


00216 


500254 


00?17 


740200 


00?2P 


ft00206 


0a?2i 


750004 


00?2? 


742010 


00?23 


74H00 


00224 


600232 


00225 


200251 


00226 


340253 


00227 


040251 


0023P 


741200 


00231 


100316 


0023? 


200252 


00233 


540257 


00234 


600240 


00235 


340253 


0023«=> 


040252 


00237 


600206 


00240 


750004 


00241 


500255 


00242 


750200 


00243 


600204 


00244 


776526 


00245 


100260 


00246 


000200 


00247 


006440 


00?5P' 


607000 


00?51 


P0f^000 


0025? 


000000 


0025:^ 


i13P'0»l 


00?5'3 


iM0i^00 


0025S 


f2i1i100 


00256 


Ba-^iisa 


00?57 


?i07777 



.TITLE [S2-15 
/IS2 TEST 

.FULL 

.LOC 2!^0 
/ROUTINE To IS? JPPeR 2K MEMORY FROM 
/ 
?S?hii LAW 

nAC CNTR2 

LAC C0NST3 

DAC ERROR4+II 

LAC STRT 

nAC PNTR2 

CLA [CLLtCMi 

nAC. PNTR2 

ISZ» PNTR2 

JMS ERR0R2 

LAC« PNTR2 

S?A 

JMS ERRORS 
LAS 

MASK12 



HQVEUP 



CNTR2 
PNTR2 
0NE2 
MASK12 

HASK22 

STRT 

';PL1M2 



ISi'HI+6 



AND 

S2A 

JMP 

LAS 

RTL 

SPA 

JMP .+6 

LAC CNTR2 

TAD 0NE2 

OAC CMTR2 

SNA 

JMS BELL2 

lAC PNTR2 

SAO UPLIM2 

JMP .+4 

Tad 0NF2 

OAC PNTR2 

JMP IS2H1+6 

LAS 

AnD MASK22 

SgA'CLA 

JMP IS?HI+4 

t AW -A 

JMS M0vE2 

ISZHI 

e 

JMP IS?L0W 



1 

40000 
20000 
4000 
7777 

.EJECT 



•1 TO (OCCUPY LOW MEMORY) 



/SET LOOP Counter 

/sFt up tO Print header 



/S^T POINjEr tO 4000 

/SET AC TO -1 

/STORE IN MEMORY 

/INDEX LOCATION TO 

/ERROR, COMPUTER QIO NOT SKIP 

/GET C(MEMORY) 

/IS IT 0? 

/N0» ERROR 



/LOOP ON CURRENT NUMBER? 
/YES 



/RING BELL? 
/NO 



/NO. gET C (PNTR2> 

/Is It 7777 

/YES 

/NO, INCREMENT FOR NEXT 

/LOCATION 



/LOOP ON THIS TEST? 

/YES 

/NO. GET READY TO 

/MOvE PROGRAM 

/ORIGIN ADDRESS -LOWEST ADDRESS -LOW 

/DESTINATION ADDRESS -LOWEST ADDRESS 

/GO TO PROGRAM IN UPPfR MEMORY 



-HIGH 



PAT.t 



IS?- 


■15 


0^61- 


Vl f1 !^ 


P'0?61 


040313 


00?6? 


220260 


P0?6:S 


■^4C3i4 


00?64 


200260 


PI0P65 


340253 


00?66 


04f1260 


00?67 


22^^260 


00?70 


040315 


00?7l_ 


?20314 


00?7? 


516(^315 


00?73 


200314 


00?74 


340253 


0037'5 


040314 


00P76 


200315 


00277 


340253 


0030P 


040315 


00301 


200313 


0030? 


340253 


00303 


040313 


00304 


740200 


00305 


600271 


00306 


200260 


00307 


340253 


00310 


040260 


00311 


754000 


0031? 


620260 


00313 


000000 


00311 


000000 


00315 


000000 


00316 


000000 


00317 


760207 


00320 


100531 


00321 


400200 


00322 


040251 


003 23 


620316 


00324 


000000 


00325 


760215 


00326 


100531 


00327 


760212 


00331^1 


100531 


00331 


620324 



/SUBrOUT 
M0VE2 



LOOP? 



TALLY2 

P0INT3 
P0INT4 
/ 

/ROUTINE 

BELL2 



INF TO MnvF THE PrOGRAH (OCCUPY LOW MEMORY) 


HAH TALLY2 
LAC* M0VE2 
riAC POINT3 
LAC M0VE2 
TAD ONFj 
OAC MOVE2 
LAG* (iOVE2 
OAC P0INT4 
LAC» POINT3 
OAC» Pn!NIT4 
LAC POINT3 
TaO 0NE2 
OAC POINT3 
LAC P0INT4 
TAD ONE2 
DAC POINT4 
LAC TALLY2 
TAO 0NE2 
DAC TALLY2 
S?A 

JMP LOOP2 
LAC M0VE2 
TAD 0NE2 
OAC M0VE2 
CLAICLL 
JMP» M0VE2 




TO RIMG BELL -LOW MEMORY 


LAW 207 
JMS TyPE2 
XCT rS?HI 
DAC CNTR2 
JMPc BFLL2 



/ROUTINE 
CRLF2 



TO ISSUE CR-LE 


LAW ?15 
JMS TYPE2 
LAW ?i? 

JMS TYPE2 
JMP» CRLE2 
.EJECT 



LOW MEMORY 
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!S?-15 



^'li^'^i'^ 


■AV)i'',1?<id 


H ,^ 5 :<, 


^^40355 


?i033i 


777772 


0PI33S 


C40313 


0033^ 


200355 


«0337 


■/ 4 11 «5 1 


fl0:i4i.i 


740010 


0P),-S4l 


74?010 


(»031? 


C»40355 


f) 3 4 ,^ 


500356 


00344 


P40357 


0034'^ 


lat'SSl 


00346 


200313 


00347 


340253 


00350 


040313 


00351 


741200 


0035? 


620332 


00353 


200355 


00354 


600340 


00355 


000000 


00356 


000007 


00357 


000260 



/TYPr OUT 
TYPOLO 



COmTFNTS or THE AC IN OCTAL CLOW) 



00360 


000361 


00361 


311323 


0036? 


332240 


00363 


304311 


00364 


304240 


00365 


3I63I7 


00366 


324240 


00367 


323313 


00370 


311320 


00371. 


254240 


00372 


314317 


00373 


303240 


00374 


377000 



TEMPy 
SEVtNZ 

ASK! I a 

/ 

/ 

/ERROR 

/ 

HESS12 



Trir 
?l 

n&c 

LAW 

OAC 

LAC 

RAL 

RAL 

RTL 

nAC 

AnO 

XOr 

JMS 

LAC 

TAO 

DAC 

SNA 

JMP« TYPOLO 

LAC TEI-IP2 

JMP ,-14 



7 

260 



MESSAGES (LOW MEMORY) 



TE^P2 
-6 

TALLY2 
TEMP2 



TEMP2 

SEVEN2 

ASKII2 

TYt'E2 

TALLY2 

ONE 2 
TALLY2 



.+1 

311323 

332240 

304311 

304240 

3I63I7 

324240 

323313 

311320 

254240 

314317 

303240 

377000 

.EJECT 



/I 
/I 

/D 
/D 
/N 
/T 
/S 
/I 
/. 
/L 
/C 

/RO 



S 

SP 

I 

SP 



SP 

K 

P 

SP 



SP 
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IS?-1^ 



RP).17^ 


■51 ('■376 


0037^ 


515212 


P10?!77 


:^113?3 


V>04i^?> 


33?2'^0 


MH401 


301304 


0^40? 


304215 


00403 


212212 


00404 


316325 


00405 


315302 


00406 


305322 


00407 


24(^301 


0041(71 


32^240 


00411 


317322 


00411? 


311307 


00413 


311316 


00414 


301314 


00415 


240240 


00416 


302301 


00417 


304240 


00420 


377000 


00421 


000000 


00422 


750004 


00423 


742010 


00424 


741100 


00425 


100316 


00426 


750004 


00427 


740010 


00430 


741100 


00431 


600440 


00432 


100324 


00433 


200360 


00434 


100510 


00435 


200252 


00436 


100332 


00437 


100324 


00440 


750004 


00441 


741100 


00442 


740040 


00443 


620421 



r^ESS22 



215212 


/CR-LF 


311323 


/I,S 


332240 


/Z.SP 


301304 


/A,D 


304215 


/O.Cr 


212212 


/LF,LF 


316325 


/N,U 


315302 


/M.B 


305322 


/E.R 


240301 


/SP.A 


324240 


/T,SP 


317322 


/O.R 


311307 


/I.G 


311316 


/l.N 


30i3i4 


/A,L 


240240 


/SP.SP 


302301 


/B.A 


304240 


/O.SP 


377000 


/RO. 



/ERROR Reporting subroutine 

ERR0R2 



LAS 




rtl 




SPA 




JMs 


BELL2 


LAS 




RAL 




SPA 




JMP 


.+7 


JMS 


CRLF2 


LAC 


MESS12 


JMS 


TMESS2 


LAC 


PNTR2 


JMS 


TYPOLO 


JMS 


CRLF2 


LAS 




SPA 




XX 




JMP« 


> ERR0R2 


.EJECT 



2 (LOW MEMORY) 



/BEll on ERROR? 



/PRINT ERRORS? 

/NO 

/YES. CRLF 

/TYPE Out "iSz DID NOT SKIP, LOG" 

/TYPE OUT NUMBER OF LOCATION 
/CR-LF 

/HALT ON ERROR? 

/YES 

/EXIT 



PAGE 



i S »< - 1 S 



«1(144'» 


:100000 


? 4 4 S 


750004 


f^AAf^ 


74?010 


00447 


741100 


£1045!^ 


100316 


00451 


75PII304 


0045? 


740010 


0045:^ 


741100 


00454 


600502 


00455 


?00375 


00456 


100510 


00457 


100324 


00460 


200506 


00461 


040455 


0046? 


200252 


00463 


100332 


00464 


760240 


00465 


100531 


00466 


100531 


00467 


100531 


00470 


100531 


00471 


100531 


00472 


750001 


00473 


100332 


00474 


760240 


00475 


100531 


00476 


100531 


00477 


220252 


00500 


100332 


00501 


100324 


00502 


750004 


00503 


741100 


00504 


740040 


00505 


620444 


00506 


600462 


00507 


200375 



/ERROR MESSAGE REPORTING SUBROUTINE 4 (LOW MEMORY) 



/BELL ON ERROR? 
/YES 



/PRINT ERRORS? 
/NO 

/TYPE OUT HEADfR 

/TYPE OUT LOCATION OF NUMBER 
/TYPE 5 SPACES 

/TYPE ORIGINAL NUMBER 



/TYPE BAD RESULT 
/CR-LF 

/HALT ON Error? 

/YES 
/EXiT 



'RR0R4 




LAS 




RTL 




SPA 




JMS 


RELL2 


LAS 




RAL 




SPA 




JMP 


.+26 


LAC 


MESS22 


JMS 


TMFSS2 


JmS 


CRI.F2 


LAC 


CONST2 


OAC 


. -4 


LAC 


pNTR2 


JMS 


TYPOLO 


LAW 


24!^ 


JMS 


TYPE2 


JMS 


TYPE? 


JMS 


TYPE2 


JMS 


TYPE2 


JMS 


TYPE2 


CLAI 


ICMA 


JMS 


TYPOLO 


LAW 


240 


JMS 


TYPE2 


JMS 


TYPE? 


LAC» PNTR2 


JMS 


TYPOLO 


JMS 


CRLF? 


LAS 




SpA 




XX 




JMP< 


* ERR0R4 


C0NST2 JMP 


Err0r4+16 


CONST3 LAC 


MESS22 


.EJECT 
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]S/-V5 







/MFSKAGE 


TyPfODT SUBROUTINF (LOW) 


w s 1 1' 


i'vK',?l?0 


TMFSS2 





f!05ll 


.14^314 




DAC P0INT3 


P 5 1 ? 


?2C»314 




LAC» P01NT3 


i^0513 


74fi^?0 




RAfv 


H0S14 


7421^20 




RT^^ 


0051S 


742020 




PTR 


i^0S16 


742f)20 




PTR 


00517 


742020 




RTR 


00^21^ 


100531 




Ji^S TYPe2 


00521 


540537 




SAO RUR0T2 


f0522 


62^^510 




JMp» TMESS2 


00523 


220514 




LAC» P0INT3 


00524 


10^531 




JMS TYPE2 


00525 


440314 




IS? POINTS 


00526 


540537 




Sad RU90T2 


00527 


620510 




JMPe TMESS2 


00531^ 


600512 




JMP TMFSS2+2 


00531 


£1 kj 


TYPE2 





00532 


500537 




AND RUR0T2 


005 33 


7004 06 




TLS 


00534 


700401 




TSF 


00535 


600534 




JMP ,-1 


00536 


620531 




JMPe TYPE2 


00537 


000377 


RUB0T2 


377 



,EJECT 



PAGE 



! S / - 1 "^ 



(^ -' (/ ; 



(^7P0i-' 


■?6!^a00 


O^Ti^tM 


;'47^45 


VtlV^7 


?07533 


7 f. ^ 3 


'/47501 


« 7 1^ i^ -^ 


147046 


070H? 


754k)01 


H70a(^ 


?67t)46 


P)7007 


467046 


H7^5.f 


10 7 4 4 5 


?7i'*ll 


?27^46 


H7t^l? 


740200 


P)7013 


107470 


07014 


7170004 


07015 


507i2i50 


07016 


740200 


07017 


607005 


0702!'' 


750004 


07021 


74?010 


0702? 


741100 


7023 


607031 


07024 


207045 


0702"^ 


347047 


07026 


047045 


07027 


741200 


07030 


107276 


07031 


207046 


07032 


547044 


07033 


607037 


07034 


347047 


07035 


047046 


07036 


607005 


07037 


750004 


07040 


507051 


07041 


750200 


07042 


607004 


07043 


607052 


07044 


003777 


07045 


000 


07046 


000300 


07047 


1^00001 


07050 


040000 


07051 


(120000 





.LOC 7f/i00 


/ROUTINE 


TO iS? LOWER 2 


fS?LOH 


LAW 




DAC CNTRl 




LAC CQiviSTs 




OAC ERR0R3+11 




ngM PNTRl 




CLA .CLL;CMA 




OACft PMTRi 




ISZ» PNlTRi 




JMS ERRORl 




LAC» PNTRi 




SZA 




JHS ERR0P3 




LAS 




AND MASKll 




S2A 




JMP lS?L0W+5 




LAS 




RTL 




SPA 




JMP .+6 




LAC CNTRl 




TAD onf:i 




DAC CNTRl 




SNA 




JHS BELLI 




LAC PNTRl 




SAO UPLIMi 




JMP .+4 




TAO ONEl 




DAC PNTRl 




JMP lSZLOW+5 




LAS 




AND MASK21 




SZAICLA 




JMP ISZlOW+4 




JMP RANlSg 


UPLIHl 


3777 


CNTRl 





PNTRl 





ONEl 


1 


HASKll 


40000 


MASK21 


20000 




.EJECT 



MEMORY f-ROM 777777 TQ (OCCUPY HIGH HEmORY) 



/ZERO POINTER 
/SET AC TO -1 
/STORE -1 IN MEMORY 
/INDEX LOCATION TO 
/GO TO ERROR SUBROUTINE 
/GET CONTENTS OF MEMORY 

/IS n a? 
/N0» Error 



/LOOP ON CURRENT NUMBER? 

/YES 

/GET C (ACS) 

/MOVE 2 LEFT 

/RING BELL? 

/NO 



/IS CNTR 0? 

/yEs. ring bell 
/no, get c (pntr) 

/IS IT 7777 
/YES 

/NO, INCREMENT FOR NEXT LOCATION 



/LOOP ON THIS TEST 

/YES 

/NO 



PACE 



IS?-!^ 



[(70S'-' 


76C'»i00 


73 5:*; 


::^ 4 7 ^! 4 5 


P17P5<5 


P07533 


VTA^b 


'■^47545 


f17C"J6 


10731? 


f17P!57 


;M7n? 


f' 7 H 6 f 


137323 


M7H61 


''47113 


07fl6? 


107334 


1^706:^ 


607060 


07064 


1 07224 


07i^65 


9147117 


07H66 


Cil47114 


07067 


107123 


H707fi 


107534 


^1707^ 


750i304 


P7P7? 


507050 


(»7P)73 


740200 


07074 


607067 


07075 


750004 


07P76 


742010 


07077 


741100 


07100 


607111 


07101 


207045 


0710? 


3 4 7047 


07103 


047045 


07104 


740200 


07105 


607111 


07106 


107276 


07107 


407052 


07110 


047045 


P>7lll 


607056 


07112 


«00000 


07113 


000000 


07114 


000000 


07115 


000000 


07116 


000000 


07117 


000000 


07120 


771340 


07121 


440000 


PI7122 


017777 



/Ranqom 


IS? T 


EST (OCCUP 


PANISE 


LAW 






DAf: 


CNTRi 




LAC 


C0MST5 




OAC 


FR90R5+11 




JMS 


GETi 




DAC 


SAVEl 




JMS 


GET2 




DAC 


SAVE? 




JMS 


CO^PaR 




JMP 


. -,-^ 




JMS 


GEM3 




DAC 


RAMD3 




DAC 


SAVE3 


PROCED 


JMS 


ISZTST 




JMS 


ERRORS 




LAS 






ANH 


MASKll 




SZA 






JMP 


PrOCED 




LAS 






RTL 






SPA 






JMP 


.♦11 




LAC 


CNTRi 




TAD 


ONEl 




DAC 


CNTRi 




SZA 






JMP 


.♦4 




JMS 


BELLI 




XCT 


RANISZ 




DAC 


CNTRi 




JMP 


RA'^ISZ + 4 


SAVEl 







SAVE2 







SAVE3 







RANDl 







RAND2 







RAN03 







UPL1M3 


-B 




ISZCON 


ISZ 




CONSTi 


17777 




.EJECT 



HIGH MEMORY) 

/SET UP TO COUNT LOOPS 

/GET LOCATION OF ISZ 

/GET LOCATION TO BE ISZ'D 

/COMPARE RaNDi AND RAND2 

/TO RE SURE THEY ARE DIFFERENT 

/GET NUMBER TO BE ISZ'n 



/PERFORM AND CHECK THE ISZ 

/ERROR, RETURN To ThiS INSTRUCTION 

/NO ERROR, RETURN HERE 

/LOOP ON CURRENT nUmBERS 
/YEs 



/RInG BELL? 

/NO 

/YES 



/MINUS LOWER LIMIT OF UPPER PROGRAM 



PAGE 



I S ? - 1 5 



07123 


O01'000 


Vi7\?^ 


207117 


fl7l25 


'•"67116 


0712^ 


237121 


P17127 


3 4 7 1 j 6 


7 1 3 (^ 


•'67115 


?I7131 


427115 


07153 


740000 


07l3:S 


P07117 


07134 


347«)47 


»7i3'i 


^^67116 


07136 


741^00 


07137 


627123 


P)7l4f 


207123 


07l4l 


^47047 


07142 


047123 


714 3 


627123 


07144 


000000 


fl7146 


047177 


07146 


227144 


07147 


047200 


0715?! 


207144 


07151 


347047 


07152 


047144 


07153 


227144 


07154 


047201 


07155 


227200 


07156 


067201 


07157 


207200 


07160 


347047 


07161 


047200 


07162 


207201 


07163 


347047 


07164 


047201 


07165 


207177 


07166 


347047 


07167 


047177 


07170 


740200 


07171 


607155 


07172 


207144 


07173 


347047 


07174 


047144 


07175 


754000 


07l76 


627144 


07177 


C»0C<300 


07?0i? 


•■?0E»i400 


07201 


00?05?3 



/IS? Test setup ^m execution subroutine 

IS?TST ?> 



LAC PAM03 
nAC» R4N02 
LAC IS^CON 
Tad RAMD2 

nAC» Randi 

XCT» RaNRI 

MOP 

LAC RAND3 

tao Ofjri 
SAn» Randz 

SKP 

JMP» ISZTST 
LAC IS2TST 
TAO ONEl 
DAC 1S?TST 
JMP» ISZTST 



/STORE NUMBER TO BE IS?«D 

/FORM ISZ 

/INSTRUCTION, AND 

/STORE IT, THEN 

/EXECUTE IT 

/FILLER 

/SYNTHESIZE jHE 

/IS? ANO CHECK 

/TO SEE THaT THE 

/ANSWERS AGREE 

/THEY DON'T, EXIT 

/INCREMENT ISZTST 

/THE HARD WAY 



/SUBROUTINE TO MOVe Thf S-ROGRaM '■OZC^P'^ HIGH MEMORY) 



HQVEl 



LOOPl 





OAC TALLYi 
LAC» HQVEl 
OAC POINTi 
LAC MOVEl 
TAD ONEl 
DAC MOvEl 
LAC» MOVEl 
OAC P0INT2 
LAC» POINTi 
OAC» P0INT2 
LAC POINTi 
ONEl 
POINTi 
P0INT2 
ONFl 
P0INT2 
TALLYI 
ONEl 
TALLYi 



TAD 
DAC 
LAC 
TAD 
DAC 
LAC 
TAD 
OAC 
SZA 
JMP 
LAC 
TAD 
DAC 
CLA 



LOOPl 

MOVEl 

ONEl 

MOVEl 

CLL 



/ 

TALLYi 
pQINTl 
P0INT2 



JMP» MOVEl 




.EJECT 



PAGE IPi 



!S?-1^ 





/Random numbfR generators 


!?7?^? 


'a0C'000 GENi 


Pi7?0:^ 


207211 


LAC Rl 


07?04 


744e!10 


RAL -CLL 


07?05 


741 400 


SZL 


«7?06 


347212 


TAD Ri+i 


07207 


f'147211 


DAC Rl 


07?lf« 


627202 


JMPo GEN] 


07?11 


f'00kJ37 R 


1 000037 


0721? 


c^00003 


3 


07213 


000000 6EN2 


H7?14 


?072?2 


LAC R2 


07215 


7 4 4 010 


Ralicll 


07216 


741400 


SZL 


07217 


347223 


TAD R2+1 


07220 


^•^47222 


OAC R2 


07221 


627213 


JMp» GEN2 


07222 


000001 R; 


P 001 


07223 


000003 


3 


07221 


■^00000 GEN3 


07225 


207252 


LAC R3 


07226 


744010 


RAL'CLL 


07227 


741400 


SZL 


07230 


347253 


TAO R3+1 


07231 


047252 


OAC R3 


07232 


047254 


OAC R3+2 


07233 


■^67255 


SADo R3+3 


07234 


741000 


SKP 


07235 


627224 


JMP» GEN3 


07236 


207255 


LAC R3+3 


07237 


347047 


TAD ONEl 


07240 


047255 


OAC R3+3 


07241 


227255 


LAC» R3+3 


07242 


047252 


OAC R3 


07243 


741200 


SNA 


07244 


607247 


JMP .+3 


07245 


207254 


LAC R3+2 


07246 


627224 


JMP» GEN3 


07247 


207710 


LAC AOnRS 


07250 


047255 


OAC R3+3 


07251 


607245 


JMP .-4 
.EJECT 



HIGH MEMORY 



PAi 



3 i* - 1. s 



;'7?5? 


■:•■> PI 1? ^ I? 


?7?^5 


'10?i;^?!3 


!?7?5J 


^•0Cl.^^|0 


?7?5^ 


FS07256 


?7?'56 


*>i?l(^000 


7 ? f) 7 


111113 


?7y6>' 


i''564?7 


?!7261 


1101^175 


?I7S6' 


i^H?!?! 


07?6,5 


i^09!137 


e'7?64 


i1«Pli365 


f» 7 ? 6 "" 


?|0P!037 


f- 7 ■;> 5 6 


i-ia^asi 


f,7?67 


il0f)0?3 


07?7'^ 


H0(^B21 


?I7271 


'1(10015 


W7272 


^00013 


(»7?73 


■700005 


07?74 


1^00001 


07?75 


000000 



f?3 



./ i/' 

3 

R3 + 4 

^.00000 

777773 

0564?7 

00(^175 

000171 

000137 

000065 

r^ a 3 7 

1* 3 1 

P(i3ii10?3 
0000?1 
000015 
000013 

000005 

000001 
000000 



/ROUTiNf TO RING BELL HiGH MEMORY 



07?76 


'/'00000 


07277 


760207 


07301^ 


107702 


07301 


407000 


07302 


047045 


07303 


627276 



BELLI 



07304 
07305 
07306 
07307 
07313 
07311 



000000 
760215 
107702 
760212 
107702 
627304 





LAW 207 




JMS TYPEl 




XCT IS?L0W 




DAC CNTRl 




JMP, BELLI 


/ 




/ROUT EN 
CRLFi 


E TO ISSUE CR 







LAW 215 




JMS TYPEl 




LAW 212 




JMS TyPEl 




JMP» CRLFl 




.EJECT 



PAGE 1? 


IS?- 


fi 




«731? 


^0f 0lr!0 




!^ 7 3 1 3 


1C17202 




PI7314 


'5«7l?2 




{17315 


■^47115 




H7316 


347120 




07317 


741^100 




PI732H 


607313 




{17321 


207115 




«732? 


627312 




PI7323 


^^00000 




(^7324 


107213 




0732'^ 


507122 




07326 


ti47116 




07327 


347120 




07330 


740100 




07331 


607324 




07332 


207116 




07333 


627323 




07331 


000000 




07335 


207115 




07336 


740001 




07337 


347047 




07340 


347116 




07341 


741200 




07342 


627334 




07343 


207334 




734 4 


347047 




07345 


047334 




07346 


627334 



/GFT RANDOM NuMbFr SUBROUTINES 
GETi c^ 

JMS GENi 

ANO CO^JSTi 

OAC RANOl 

TaH UPLIM3 

5MA 

JMP .-5 

LAC RAMDl 

JMP» GFT] 
GET2 

JMS GEM2 

AND COMSTl 

DAC RAND2 

TAO UPLIM3 

SMA 

JMP .-5 

LAC RAM02 

JMP» GET2 
/ 

/COMPARE RaNDI and RAND2 SUBROUTINE 
COMPaR 

LAC RANDI 

CMA 

TAD ONEl 

TAP RAND2 

SNA 

JMPa COMPAR 

LAC COMPAR 

TAD ONEl 

OAC CoMpAR 

JMP» COMPAR 

.EJECT 



/GET RANDOM 

/MASK 

/STORE 

/COMPARE TO SEE 

/IF IT Is IN THE PrOGrAM 

/IT IS, GENERATE ANOTHER 

/NO, IT ISN'T, EXIT 

/WITH NUMBER IN AC 



PAGE 1.? 


!S?- 


1 ^ 




07347 


(^0f^33? 




R735ii 


,M7372 




f735l 


777772 




fl7352 


'?^47177 




«7353 


?0737g 




ei7 35 4 


744^)10 




C1735'5 


74(^010 




C17356 


"? 4 ? 1 




07357 


(147372 




0736H 


S07573 




PI7361 


? 4 7 3 7 4 




0736? 


3157702 




P17363 


?07177 




07364 


•^47047 




0736'S 


VU7177 




87366 


741200 




07367 


627347 




07371^ 


P07372 




07371 


A073«55 




07372 


i?00000 




07373 


000007 




07374 


000260 



/TYPr OUT THf-- CONTENTS OF THE AC IN OcTaL (HIGH) 



'YPOHl 



TEMPI 

SEVENi 

ASKIIl 





OAC 

LAW 

OAC 

LAC 

PAL 

RAL 

PTL 

DAC 

AND 

XOR 

JMS 

LAC 

TAD 

DAC 

SNA 

JHP« 

LAC T 

JMP . 



7 

260 

.EJEC 



EMPl 

6 

ALLYl 

EMPi 

LL 



EMpl 

EVENl 

SKIU 

YPEl 

ALLYl 

NEl 

ALLYl 

TYPOHl 

EMPi 

-14 



PAGE 1'' 


!S?- 


15 




?.737S 


'''07376 




«7376 


^11323 




PI7377 


■? 3 ? ? 4 




0740C^ 


30''3ll 




{^74*^1 


304240 




0740? 


316317 




074H3 


32''?*0 




P7404 


323313 




07405 


311320 




0740ft 


254240 




07407 


314 317 




07411?! 


303240 




07411 


377000 




0741? 


007413 




7 413 


?15212 




07414 


311323 




0741*^ 


332240 




07416 


301 304 




07417 


304215 




07420 


212212 




07421 


316325 




07''22 


315302 




07423 


305322 




07424 


240301 




07425 


324240 




07426 


317322 




07427 


311307 




07430 


311316 




07431 


301314 




07432 


240240 




07433 


302301 




07434 


304240 




07435 


377000 




07436 


007437 




07437 


240240 




07440 


:^11323 




07441 


332240 




07442 


301324 




07443 


215212 




07444 


377000 



/ERROR MESSa 
fESSll .+ 
31 
3 3 
30 
30 
31 
32 
3 2 
31 
25 
31 
30 
3 7 



MESS21 



MESS3i 



21 
31 
33 
30 
30 
21 
31 
31 
30 
24 
32 
.^1 
31 
31 
30 
24 
30 
30 
37 
+ 
24 
31 
33 
30 
21 
37 
.E 



GES ( 

1 

1323 

2240 

4311 

4240 

63l7 

4240 

3313 

1320 

4240 

4317 

3240 

7000 

1 

■5212 

1323 

2240 

1304 

4215 

2212 

6325 

5302 

5322 

03«1 

4240 

7322 

1307 

1316 

1314 

0240 

2301 

4240 

7000 

1 

0240 

1323 

2240 

1324 

5212 

7000 

JECT 



HIGH MEMORY) 

/I,S 

/Z.SP 

/D, I 

/O.SP 

/N.O 

/T.SP 

/S.K 

/I.P 

/..SP 

/L.O 

/CSP 

/RO 

/CR.LF 

/US 

/Z,SP 

/A.O 

/0,CR 

/LF.LF 

/N.U 

/M,B 

/E'R 
/SP.A 

/T.SP 

/O.R 

/I.G 

/I.N 

/A.L 

/SP SP 

/8,A 

/O.SP 

/RO 

/SP SP 

/I.S 

/i'SP 

/A,T 

/CR.LF 

/RO 



PAGE 



!3?-i5 



I? 7 4 4 B 
P»?446 
07447 
f?74 5H 
07451 
(?I745? 
7453 
07454 
07455 
07 4 56 
?)7457 
(1746P 
Ci746l 
fl746? 

«746:^ 

«7464 
07465 
f?7466 
07467 



07470 
07471 
07472 
07473 
07474 
07475 
07476 
07477 
07500 
07501 
0750? 
07503 
07504 
07505 
07506 
07507 
07510 
07511 
07512 
07513 
07514 
07515 



■1S101100 
75H004 
74?yil0 
741 100 
1 07276 
750004 
740010 
741100 
607464 
107304 
207375 
107657 
207046 
107347 
107304 
750004 
741100 
740040 
627445 



000000 
750004 
742010 
741100 
107276 
750004 
740010 
741100 
607526 
207412 
107657 
107304 
207532 
047501 
207046 
107347 
760240 
107702 
107702 
107702 
107702 
107702 



/error rfporting sueRouTiNf: i (high mehopy) 

FRRORl ^ 

LAS 

RTI 

SPh /BELL ON ERROR? 

jnS «ELL1 /YES 

LAS 

RAL 

SPA /PRINT ERRORS 

JMP .+7 

JM5 rRLFl 

LAC MESSii 

jmS TMrSSi 

LAC pNTRl 

JMS TYPOHI /TYPE OUT 

JMS CRLFi /CR-LF 

LAS 

SPA /HALT ON ERROR 

XX /YES 

JMP» ERRORl /EXIT 



/PRINT 

/NO 

/YES, CR-LF 

/TYPE OUT "ISZ DID NOT SKIP, LOC" 

NUMBER OF LOCATION 



/ 

/ERROR 

ERRORS 



MESSAGE 


LAS 
RTL 
SPA 
JMS 
LAS 
RAL 
SPA 
JMP 
LAC 
JMS 
JMS 
LAC 
OAC 
LAC 
JMS 
LAW 
JMS 
JMS 
JMS 
■ JMS 
JMS 



ERRORl 
REPORTING 



BELLI 



.+26 

MESS21 

TMFSSi 

CRLFl 

C0NST4 

. -4 

PNTRI 

TYPOHI 

240 

TYPEl 

TYPEl 

TYPEl 

TYPEl 

TYPEl 



SUBROUTINE 5 (HIGH MEMORY) 



/BELL 
/YES 



ON ERROR 



/PRINT 
/NO 



ERRORS? 



/TYPE OUT HEADER 

/TYPE OUT LOCATION OF NUMBER 
/5 SPACES 



.EJECT 



PAGE 16 IS?- 


■15 


07516 


75t</101 


9iT^\l 


107347 


0752?! 


760240 


07521 


U)7702 


07522 


107702 


07523 


227^46 


07524 


107347 


07525 


] 07304 


07526 


750k)04 


07527 


741100 


07530 


740040 


f17531 


627470 


07532 


607506 


07533 


207412 



CONST4 

C0NST5 



rL4 :cMA 
jms typqhi 

LAW 24 H 

JMS TYPEl 

JMS TYPfl 

LAC» PNTRl 

J'^S TYpOHI 

JMS CRLFl 

LAS 

SPA 

XX 

JMP» ERR0R3 

JMP ERROR3+I6 

LAC MESS21 

.EJECT 



/TYPp OUT ORIGINAL NUmBeR 



/TYpE BAD RESULT 
/CR-LF 

/HALT ON ERROR? 

/YES 

/EXIT 



PA 



! '-; 7 - 1 '^ 



t^ 7 s 3 4 


' i^ P ,1 1/ \A 


','7S3S 


7'',P,y)iA4 


;i 7 5 5 r 


M 2 tl 1 


i?7S.5-' 


74111^0 


pi 7 ^5 4 / 


1 .17276 


,"7'^.4 1 


7 i-j t/! 1,1 1^ 4 


(» 7 r, 4 ;j 


7 4 ;^ 1 


5^7543 


741 100 


^17=344 


A075 7 7 


(?754S 


207412 


(^7'>4^. 


U176S7 


?7547 


50 7 4:56 


ff75'^i^ 


1 07657 


H7551 


207651 


f7'55? 


■M7545 


07553 


207li6 


07554 


107347 


07555 


760240 


07556 


107702 


07557 


107702 


07560 


107702 


07561 


107702 


07562 


107702 


07563 


207117 


07564 


107347 


07565 


760240 


07566 


107702 


07567 


107702 


07570 


227116 


07571 


107347 


07572 


760240 


07573 


107702 


07574 


2^7115 


07575 


107347 


07576 


107304 


07577 


750004 


07600 


741100 


07601 


740040 


07602 


750004 


0760? 


507645 


07604 


741200 


07605 


f-27534 



/ r P R R 
rRR0='5 



>^ACK 



Rf-pnRTlMG SUb^^C 


i^ 




LAS 




RTL 




SPA 




JHS 


PELLl 


LAS 




RAL 




SPA 




JMP 


.*M 


LAC 


MtSS?l 


JMS 


TMrssi 


L AC 


MLSSJi 


JUS 


TMFSSl 


LAC 


C0IMST6 


OAr 


.-5 


LAC 


RAN02 


JMS 


TYPOHI 


LAW 


24'^ 


JMS 


TYPEl 


JMS 


TYPEl 


JMS 


TYPEl 


JMS 


TYPEl 


JMS 


TYOEl 


LAC 


RAi^D3 


JMS 


TY"OHI 


LAW 


24^ 


JMS 


TYPEl 


JMS 


TYPEl 


IAC» RANn2 


JMS 


TYPOHI 


LAW 


24,1 


JMS 


TYPEl 


LAC 


PANDl 


jMS 


TYPOHI 


JMS 


crlfi 


LAS 




SPA 




XX 




LAS 




AND 


MASK31 


SNA 




JMP^ 


» ERR0R5 


.EJECT 



iNf '^ (HIGH Mf-MORY) 



/bell on error 

/YES 



/PRINT ERRORS? 
/NO 

/TYPf HEADER 

/TYPfT "152 AT" 

/TYPE LOCATION OF NUMBER 
/5 SPACES 



/TYPE ORIGINAL NUMBER 



/TYPE BAD NUMBER 



/type; location Or isz 



/HALT ON ERROR? 
/YES 



/SAVE ERROR CONDITIONS? 
/NO 



PAGE If* 



IS?-T5 



7 6 k4 ft 


75fM(^4 


1^7607 


■-; 7 6 4 6 


(^761C 


741 200 


f76li 


^0763 6 


0761? 


107^12 


H7613 


10 7 3 3 4 


?I7614 


6C57612 


!?I761'^ 


607620 


P)7616 


207112 


«7617 


(M7115 


076251 


750i^04 


t'7621 


507647 


1^762? 


741200 


«7623 


607630 


«7624 


107323 


07625 


107334 


07626 


607624 


07627 


607632 


0763C' 


207113 


07631 


047116 


?I7632 


750004 


07633 


507650 


07634 


741200 


07635 


607640 


07636 


107224 


07637 


607641 


07640 


207114 


7 6 41 


047117 


07642 


107123 


07643 


607535 


076'' '^ 


607602 


07645 


010000 


07646 


004000 


07647 


2 *^ 


0765f! 


001 000 


07651 


607553 



!S?LOC 


LAS 






A\n 


MASK41 




S'>J4 






JMP 


. +5 




JMS 


CEri 




JMS 


COMP^R 




JMP 


.-? 




jmp 


oPLOr 




LAC 


SAVEl 




DAC 


PANDl 


OPLOr 


LAS 






a MO 


MASKRl 




S''JA 






JMP 


.+5 




JMS 


GET2 




JMS 


COMPaR 




JMP 


.-? 




JMP 


OPNuM 




LAC 


Sa\/E2 




OAC 


RA'^D2 


OPNuM 


LAS 






AND 


HASK61 




SNA 






JMP 


.+3 




JMS 


GEN3 




JMP 


.+? 




LAC 


SA\/E3 




DAC 


RAMD3 


TRYOIF 


JMS 


IS2TST 




JMP 


ERROR5+I 




JMP 


RACK 


MASK31 


10000 


MASK41 


4000 




MASK51 


200 




MASK61 


1000 




C0NST6 


JMP 


ERROR5+17 




.EJECT 



/VARY LOCATION OF tS?? 

/NO 

/YES. GET ANOTHER AQORFSS 

/IS RaND1=RaND2 

/YES; TRY AqA[N 

/ALL OK, GO ON 

/TRANSFER C(SaVEi ) 

/TO RANDl 



/VARY LOCATION OF OPERAND? 

/NO 

/YES, GET OP ADDRESS 

/IS RaND1=RaND2? 

/yEs. TRY Again 

/ALL OK. GO ON 
/TRANSFER C(SaVE2) 
/TO RANO2 



/VARY OPERAND? 

/NO 

/YES 



/PERFORM AND CHECK THE IS2 
/ERROR RETURNS HERE 
/NO ERROR RETURNS HERE 



PAGE l-* 


!S?-1 


5 




07(^5? 


7765P6 




07ft53 


10 714 4 




076'5'i 


i.ii?^44 




0765'-". 


i1 2 




07656 


6a0200 




07657 


000003 




0766?! 


CM 7200 




07661 


??7200 




0766? 


74''1i1?0 




07663 


74?i^?0 




07664 


74?M20 




07665 


742020 




07666 


742020 




07667 


107702 




07670 


547711 




07671 


fe?7657 




0767? 


227200 




07673 


107702 




07674 


547711 




07675 


627657 




07676 


?07200 




07677 


347047 




07700 


047200 




07701 


607661 




0770? 


000000 




07703 


507711 




07704 


700406 




07705 


700401 




07706 


607705 




07707 


627702 




07710 


007256 




07711 


000377 
001252 
006440 

000000 



/ROUTiNE 


TO MOVr PROGRAM TO LOWER MEMORy A^fD 


MOVEHN 


LA.". -4 /GET RFAOY TO 




jmS MjvEi /MOVE A WORDS 




w /FROM HIGH TO 




IS?H! /LOW MEMORY 




jMP IS-'HI /THEN TRANSFER 


/MESSAGE 


TYprOUT SUBROUTINE <HIGH) 


TMFSSi 


? 




PAC PQINTi 




L AC« P■^I^iTl 




R &" 




m ^ 




RTR 




filR 




RT« 




JM5 TYPEl 




SAO rU"0T1 




JMP. TMESSl 




LAC» POINTl 




JMS TYPEl 




SAO RUQOTi 




JMP» TMESSl 




LAC POINTl 




TAD ONFl 




DAG POINTl 




JMP TMFSSi*2 


TYPEl 


P 




ANO RUi^OTl 




TLS 




TSr 




JMP .-1 




JMP» TYPEl 


&ODRS 


P3 + 4 


PUBOTl 


377 


AsRURdT2' 


-IS£hI+i+RUB0Ti-IS?L0W+i 


HsISZLOW 


-RUBOT?+ISZHI-l 




.END 




NO ERROR LINES 



STaRT IS^HI 



CONTROL TO IS2HI 



PAGE 2i/ 



!S?-1'5 



A 

AOORS 

ASKI II 

ASK 11 ? 

R 

PACK 

RELLl 

rELL? 

CLOF 

CLON 

CLSF 

CNTRl 

CNTR2 

COMPAR 

CONSTl 

C0NST2 

C0NST3 

r,0NST4 

C0NST5 

C0NST6 

CRlFl 

CRLF2 

FRRORl 

FRR0R2 

FRR0R3 

FRR0R4 

ERRORS 

GENl 

GEN2 

GEN3 

GETl 

GET2 

IS?CON 

IS2HI 

IS2L0C 

tSZLOW 

IS?TST 

KRP 

KSF 

LOOPl 

L00P2 

MASKll 

MASK12 

MASK21 

MASK22 

MASK31 

MASK41 

MASK51 

MASK61 

MESSll 

MESS12 

MESS21 

MESS22 

MESS31 

MOVEDN 



(^P1252 
07710 
P)7374 

006440 
07602 
07276 
0031 6 
700004 
700044 
700001 
07045 
00251 
07334 
07122 
00506 
00507 
07532 
07533 
07651 
073«4 
00324 
07445 
00421 
07470 
00444 
07534 
07202 
07213 
07224 
07312 
07323 
07121 
00200 
07606 
07000 
07123 
700312 
700301 
07155 
00271 
07050 
00254 
07051 
00255 
07645 
.07646 
07647 
07650 
07375 
00360 
07412 
00375 
07436 
07652 



PAGE 21 


!S 


MOVEUP 


00244 


MOVEI 


07144 


M0VE2 


00260 


ONEl 


07047 


ONE? 


00253 


OPLOC 


07620 


OPNUM 


07632 


PCF 


700202 


PNTRl 


07046 


PNTR2 


00252 


POINT! 


07200 


POINT? 


07201 


POINTS 


00314 


POINT4 


00315 


PROCEO 


07067 


PSA 


700204 


PS8 


700244 


PSF 


700201 


RANDl 


07115 


RAND2 


07116 


RAND3 


87117 


RANIS2 


07052 


RCF 


700102 


RRR 


700112 


RSA 


700104 


RSB 


700144 


RSE 


700101 


RUBQTl 


07711 


RUB0T2 


00537 


Rl 


07211 


R2 


07222 


R3 


07252 


SAVEl 


07112 


SAVE2 


07113 


SAVE3 


07114 


SEVEnI 


07373 


SEVEn2 


00356 


STRT 


00256 


TALLYl 


07177 


TALLY2 


00313 


TCF 


700402 


TEMpl 


07372 


TEMP2 


00355 


TLS 


700406 


TMESSl 


07657 


TMESS2 


00510 


TRYDIF 


07642 


TSF 


700401 


TYPEl 


07702 


TYPE2 


00531 


TYPOHI 


07347 


TYPOLO 


00332 


UPLIMl 


07044 


UPL1M2 


00257 


UPLIH3 


07120 



PAGE 22 


IS 


fS2Hl 


002(^0 


MOVEUP 


H0244 


CNTR2 


00251 


PNTR? 


00252 


0NE2 


00253 


MASK12 


00254 


MASK22 


00255 


STRT 


00256 


UPLIM2 


00257 


MQVE? 


00260 


L00P2 


00271 


TALLY2 


00313 


P0INT3 


00314 


P0INT4 


00315 


«ELL2 


00316 


CRLF2 


00324 


TYPOLQ 


00332 


TEMP2 


00355 


SEVEN2 


00356 


ASKII2 


00357 


MESS12 


00360 


MESS22 


00375 


ERR0R2 


00421 


ERR0R4 


00444 


C0NST2 


00506 


C0NST3 


00507 


TMESS2 


00510 


TYPE2 


00531 


RUB0T2 


00537 


A 


001252 


B 


006440 


IS2L0W 


07000 


UPLIMl 


07044 


CNTRl 


07045 


PNTRl 


07046 


ONEl 


07047 


MASKH 


07050 


MASK21 


07051 


RANISZ 


07052 


PROCED 


07067 


SAVEl 


07112 


SAVE2 


07113 


SAVE3 


07114 


RANDl 


07115 


RAND2 


07116 


RAND3 


07117 


UPLIM3 


07120 


ISi?CON 


07121 


CONST! 


07122 


IS?TST 


07123 


MOVEl 


07144 


LOOPl 


07155 


TALLYl 


07177 


POlNTl 


07200 


P0INT2 


07201 



PAGE7^:5 rS?-15 

GEf^l fil?.^?. 

Rl «7211 

GEN2 07213 

R2 07222 

GEN3 07224 

R3 07252 

BELLI 07276 

^ CRLEl 0735^4 

GETl 07312 

GET2 07323 

COMPAR 07334 

TYPOHI 07347 

TEMPI 07372 

SEVENl 07373 

ASKlIl 07374 

MESSll 07375 

MESS21 07412 

MESS31 07436 

ERRORl 07445 

ERRORS 07470 

C0NST4 07532 

C0NST5 07533 

ERRORS 07534 

RACK 07602 

ISFLOC 07606 

OPLOC 07620 

OPNUM 07632 

TRYOIF 07642 

MASK31 07645 

MASK41 07646 

MASK51 07647 

MASK61 07650 

C0NST6 07651 

MOVEDN 07652 

TMESSl 07657 

TyPEl 07702 

ADDRS 07710 

RUBOTl 07711 

CLSF.. 700001 

CLOF 700004 

CLON 700044 

RSF1 700101 

RCF 700102 

RSA 700104 

RRB 700112 

RSB 700144 

PSF 700201 

PCF 700202 

PSA 700204 

PSB 700244 

KSF 700301 

KRR 700312 

TSF 700401 

TCF 700402 

TLS 7004(?S6 



MAINDEC EVALUATION REQUEST 

After sufficient familiarization with the operation and documentation of this MAINDEC, 
please indicate your assessment of the following areas and return this form to Digital Equipment Cor- 
poration. 

IDENTIFICATION : MAINDEC NO Program Title 



USAGE : Used by: Field Service Q Production Q Other ["] 

Frequency of Usage: Daily F"] Weekly [ | Monthly [ | 
SUGGESTIONS FOR IMPROVEMENT 

1. Are the program loading and operating instructions: clear?! I, incomplete? I I, difficult to 
follow ?Q] ^— ' ^— ' 

2. Do the error reports and program documentation provide sufficient diagnostic information. 

in all cases ?Q, in most cases ? | \, in very few cases ?r~j. Suggestions for improvement: 



3. Is the program effective in isolating malfunctions: in all cases ?[ | , in most cases ?| |, 

in ve/y few cases ?( |. Would additional Scope loops or Switch Register control be helpful ?. 
Suggestions for improvement: 



4. Does the program ever fail to detect malfunctions exposed by other software?. 
Were Margins used? Please describe malfunction in detail: 



5. Does the program ever report non-existant malfunctions?. 



Please indicate erroneous report and any pertinent operating conditions: 



6. Does this MAINDEC ever expose malfunctions in the Central Processor or other peripheral units not 
detected by the appropriate MAINDEC ?_ 



Please describe malfunction and MAINDEC(S) used: 



7. Does the document provide a general understanding of the functional programming requirements of 
the system? Good[j , Fair(~~|^ NoneQ . Would a general description of programming re- 
quirements increaseThe effectiveness of this~MAINDEC?___ 



Remarks: 



Fold Here 



Do Not Tear - Fold Here and Staple • 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



Postage will be paid by: 




Digital Equipment Corporation 
Diagnostic Programming Group 
146 Main Street, Building 12 
Maynard, Massachusetts 01754 



FIRST CLASS 

PERMIT NO. 33 

MAYNARD, MASS. 



